home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
usenet
/
sources
/
volume89
/
kernel
/
dirk20.1
< prev
next >
Wrap
Text File
|
1989-02-17
|
53KB
|
1,334 lines
Path: xanth!nic.MR.NET!hal!cwjcc!mailrus!ulowell!page
From: page@swan.ulowell.edu (Bob Page)
Newsgroups: comp.sources.amiga
Subject: v89i022: dirk - system resource monitor v2.0
Message-ID: <11761@swan.ulowell.edu>
Date: 17 Feb 89 01:32:46 GMT
Organization: University of Lowell, Computer Science Dept.
Lines: 1323
Approved: page@swan.ulowell.edu
Submitted-by: elbaum@REED.BITNET (Daniel Elbaum)
Posting-number: Volume 89, Issue 22
Archive-name: kernel/dirk20.1
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# adjust.c
# arg.c
# dirk.doc
# dirk.h
# dirk.uu
# main.c
# makefile
# sys.c
# window.c
# This archive created: Thu Feb 16 20:28:49 1989
cat << \SHAR_EOF > adjust.c
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#include "dirk.h"
#define T_LEFT (6) /* centers text nicely */
#define T_HEIGHT (10)
#define T_TOP (WINHT1+4)
void
setcolor(sp, tm, g_f)
register struct Screen *sp;
ULONG tm;
t_gf *g_f;
{
register f, db, t;
int tr, tw;
int dr, dg, db; /* detail red, blue, green */
int br, bg, bb; /* bkgnd red, blue, green */
ULONG mu, fm;
ULONG amtfree();
if (g_f->dstog){
tqlen(&tr, &tw);
f=CMAX-(tr+tw)/g_f->gran;
if (f<g_f->dsmin) f=g_f->dsmin;
if (f>g_f->dsmax) f=g_f->dsmax;
if ((t=tr/g_f->gran+f)>CMAX) t=CMAX;
/* Detail and Block pens seem to be reversed */
if ((dr=t+g_f->bd_r)>CMAX) dr=CMAX;
if ((dg=t+g_f->bd_g)>CMAX) dg=CMAX;
if ((db=t+g_f->bd_b)>CMAX) db=CMAX;
}
/* val = minval + ((mused / mtotal) * (maxval - minval)) */
if (g_f->bstog){
fm=amtfree();
mu=tm-fm;
br=g_f->lb_r+(mu*g_f->db_r)/tm;
bg=g_f->lb_g+(mu*g_f->db_g)/tm;
bb=g_f->lb_b+(mu*g_f->db_b)/tm;
}
Forbid();
if (g_f->dstog) SetRGB4(sp->ViewPort, sp->BlockPen, dr, dg, db);
if (g_f->bstog) SetRGB4(sp->ViewPort, sp->DetailPen, br, bg, bb);
Permit();
}
#define N_TEXT (8)
typedef struct IntuiText t_it;
void
fillwin(wp)
struct Window *wp;
{
register i;
int tr, tw;
ULONG cavail, favail;
char trbu[24], twbu[24], cabu[24], fabu[24];
t_it *ita[N_TEXT];
memset(ita, 0, sizeof(ita));
for (i=0; i<N_TEXT; ++i)
if (!(ita[i]=(t_it *)AllocMem(sizeof(t_it), MEMF_PUBLIC|MEMF_CLEAR)))
break;
if (i<N_TEXT){
for (i=0; i<N_TEXT; ++i)
if (ita[i]) FreeMem(ita[i], sizeof(t_it));
return;
}
Forbid();
cavail=AvailMem(MEMF_CHIP);
favail=AvailMem(MEMF_FAST);
Permit();
tqlen(&tr, &tw);
sprintf(trbu, "Ready: %3.3d", tr);
sprintf(twbu, "Waiting: %3.3d", tw);
sprintf(cabu, "Chip: %7.7d", cavail);
sprintf(fabu, "Fast: %7.7d", favail);
ita[0]->FrontPen=wp->BlockPen;
ita[0]->BackPen=wp->DetailPen;
ita[0]->DrawMode=JAM2;
for (i=1; i<N_TEXT; ++i)
memcpy(ita[i], ita[0], sizeof(t_it));
ita[0]->TopEdge=0;
ita[0]->IText="2.0 (C) 1989";
ita[0]->NextText=ita[1];
ita[1]->TopEdge=T_HEIGHT;
ita[1]->IText="Daniel Elbaum";
ita[1]->NextText=ita[2];
ita[2]->TopEdge=T_HEIGHT*3;
ita[2]->IText=" Tasks";
ita[2]->NextText=ita[3];
ita[3]->IText=trbu;
ita[3]->TopEdge=T_HEIGHT*4;
ita[3]->NextText=ita[4];
ita[4]->IText=twbu;
ita[4]->TopEdge=T_HEIGHT*5;
ita[4]->NextText=ita[5];
ita[5]->IText=" Memories";
ita[5]->LeftEdge=6;
ita[5]->TopEdge=T_HEIGHT*7;
ita[5]->NextText=ita[6];
ita[6]->IText=cabu;
ita[6]->TopEdge=T_HEIGHT*8;
ita[6]->NextText=ita[7];
ita[7]->IText=fabu;
ita[7]->TopEdge=T_HEIGHT*9;
ita[7]->NextText=NULL;
PrintIText(wp->RPort, ita[0], T_LEFT, T_TOP);
for (i=0; i<N_TEXT; ++i)
FreeMem(ita[i], sizeof(t_it));
return;
}
SHAR_EOF
cat << \SHAR_EOF > arg.c
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#include "dirk.h"
getargs(v, f)
char **v;
t_gf *f;
{
register out=0;
f->gran = 4; /* good when 4-5 processes are in background */
f->dsmax = 12; /* takes some glare out of text */
f->dsmin = 8; /* readable even at near-red */
f->dstog = 1; /* task watcher on by default */
f->bstog = 1; /* memory watcher on by default */
f->intvl = 180; /* default delay is 3 seconds */
f->bd_r = 2; /* increment for detail pen red */
f->bd_g = 2; /* increment for detail pen green */
f->bd_b = 0; /* increment for detail pen blue */
f->hb_r = 14; /* go from blue 14 to red 14 as memory fills */
f->hb_g = 0;
f->hb_b = 0;
f->lb_r = 0;
f->lb_g = 0;
f->lb_b = 14;
while (*v){
if (**v=='-') {
if (!(*v)[1]) return(usage());
while (*++*v){
switch(**v){
case 'g': f->gran=atoi(++*v); ++out; break;
case 'h': f->dsmax=atoi(++*v); ++out; break;
case 'l': f->dsmin=atoi(++*v); ++out; break;
case 'i': f->intvl=atoi(++*v); ++out; break;
case 't': f->bstog=0; break;
case 'm': f->dstog=0; break;
case 'd':
switch(*++*v){
case 'r': f->bd_r=atoi(++*v); ++out; break;
case 'g': f->bd_g=atoi(++*v); ++out; break;
case 'b': f->bd_b=atoi(++*v); ++out; break;
default: return(usage());
}
break;
case 'e':
switch(*++*v){
case 'r': f->lb_r=atoi(++*v); ++out; break;
case 'g': f->lb_g=atoi(++*v); ++out; break;
case 'b': f->lb_b=atoi(++*v); ++out; break;
default: return(usage());
}
break;
case 'f':
switch(*++*v){
case 'r': f->hb_r=atoi(++*v); ++out; break;
case 'g': f->hb_g=atoi(++*v); ++out; break;
case 'b': f->hb_b=atoi(++*v); ++out; break;
default: return(usage());
}
break;
default: return(usage());
} /* switch (**v) */
if (out) {++v; break;}
} /* while (*++*v) */
if (!out) ++v;
else out=0;
} /* else if (**v=='+') */
else {
return(usage());
}
} /* while (*v) */
limit(f);
if (f->gran==0) f->gran=1; /* special case for x/gran */
return(0);
}
#define LFIX(x, l) if (x<l) x=l
#define HFIX(x, h) if (x>h) x=h
/*
Make sure all members of *f are in bounds.
*/
limit(f)
t_gf *f;
{
int tmp;
int maxint=(1<<sizeof(maxint))-1;
LFIX(f->gran, 0);
HFIX(f->gran, maxint);
LFIX(f->dsmax, 0);
HFIX(f->dsmax, CMAX);
LFIX(f->dsmin, 0);
HFIX(f->dsmin, CMAX);
LFIX(f->intvl, 0);
HFIX(f->intvl, maxint);
LFIX(f->bd_r, 0);
HFIX(f->bd_r, CMAX);
LFIX(f->bd_g, 0);
HFIX(f->bd_g, CMAX);
LFIX(f->bd_b, 0);
HFIX(f->bd_b, CMAX);
LFIX(f->lb_r, 0);
HFIX(f->lb_r, CMAX);
LFIX(f->lb_g, 0);
HFIX(f->lb_g, CMAX);
LFIX(f->lb_b, 0);
HFIX(f->lb_b, CMAX);
LFIX(f->hb_r, 0);
HFIX(f->hb_r, CMAX);
LFIX(f->hb_g, 0);
HFIX(f->hb_g, CMAX);
LFIX(f->hb_b, 0);
HFIX(f->hb_b, CMAX);
/* db may be negative */
f->db_r = f->hb_r-f->lb_r;
f->db_g = f->hb_g-f->lb_g;
f->db_b = f->hb_b-f->lb_b;
}
usage()
{
printf("Dirk v2.0 copyright (c) 1989 Daniel Elbaum\n");
printf("\nUsage: dirk [-t|m] [-gN] [-hN] [-lN] [-iN]]...\n");
printf("t\ttrack tasks only\n");
printf("m\ttrack memory only\n");
printf("g (4)\tgranularity of task mapping (small for few tasks)\n");
printf("h (12)\tmaximum detail saturation\n");
printf("l (8)\tminimum detail saturation\n");
printf("i (180)\tinterval in ticks (60 or 50 per second)\n");
printf("\n...");
printf("\t[-drN] [-dgN] [-dbN] [-erN] [-egN] [-ebN] [-frN] [-fgN] [-fbN]\n");
printf("dr (2)\tamount by which to redden the detail pen\n");
printf("dg (2)\tamount by which to greeen the detail pen\n");
printf("db (0)\tamount by which to bluen the detail pen\n");
printf("er (0)\tamount of red for empty memory\n");
printf("eg (0)\tamount of green for empty memory\n");
printf("eb (14)\tamount of blue for empty memory\n");
printf("fr (14)\tamount of red for full memory\n");
printf("fg (0)\tamount of green for full memory\n");
printf("fb (0)\tamount by blue for full memory\n");
return(-1);
}
SHAR_EOF
cat << \SHAR_EOF > dirk.doc
1/89
DIRK v2.0 -- Tune workbench colors to system performance
-----------------
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
-----------------
New Features:
Pressing the right mouse button while the `Dirk' tinywindow
is active will now expand the window, presenting numerical
displays of the information Dirk uses. Clicking the right
button again while that window is selected will shrink the
window back to a tinywindow. Thanks to Steve Tibbett for
the idea (from later versions of VirusX).
While either the tinywindow or the display window is active,
Dirk will update constantly. Just select any other window
to reinstate the timing interval.
The '-bN' option (background intensity) has been replaced with
six new optional arguments: three sets of color intensities
which determine the color of the screen when memory is full
and empty; at other times, the screen color is taken from an
interpolation between the two. See the '-erN ...' and '-frN'
discussions. Basically, you specify red, green, and blue
intensities for the case wherein all memory is free and for
the case wherein all memory is allocated.
The default detail pen color is now a faint yellow, which
provides better contrast with a wider range of backgrounds.
The detail pen color arguments (+rN, +gN, +bN) must now be
preceded with the letter 'd', and the '-' is used instead
of the '+' to introduce arguments: -drN, -dgN, -dbN.
-----------------
Syntax:
run Dirk [-t|m] [-gN] [-hN] [-lN] [-iN]]
[-drN] [-dgN] [-dbN] [-erN] [-egN] [-ebN] [-frN] [-fgN] [-fbN]
-----------------
Parameters:
Option Default Effect
---------------------------------------------------------------------
t track tasks only
m track memory only
g 4 granularity of task mapping (small for few tasks)
h 12 maximum detail intensity
l 8 minimum detail intensity
i 180 interval in ticks (60 or 50 per second)
dr 2 tweak value for red component of detail pen
dg 2 tweak value for green component of detail pen
db 0 tweak value for blue component of detail pen
er 0 amount of red when memory is empty
eg 0 amount of green when memory is empty
eb 14 amount of blue when memory is empty
fr 14 amount of red when memory is full
fg 0 amount of green when memory is full
fb 0 amount of blue when memory is full
If you like the program, you may eventually want to start it
from your startup-sequence, so you might want to dirk around
with the options before deciding on a command line to use.
My startup-sequence uses this line:
arun dirk -fr12 -er0 -fb0 -eb12 -i20 -h11 pri -5
where `arun' is the ARP version of Run, which would work just
as well, but for which one would discard the `pri -5' part.
Here are all the options explained.
The -t option enables task tracking only. The background color
is not affected.
The -m option complements the -t option; only memory tracking is
turned on. The detail pen color is not affected.
The following command line options require counts. The valid
range of the count varies from option to option. All color
counts should be between 0 and 15; other counts must be
between 0 and 65535.
Granularity, set with -gN, is the sensitivity with which detail
pen color responds to the instantaneous number of ready tasks.
Workable values lie between 1 and 8.
Maximum detail intensity (-hN) is a limit on the brightness of
the detail pen. A value of 8 to 14 (14 brighter) can keep
detail from glaring. The valid range is 0-15.
Minimum detail intensity -lN (ell not one) is a floor on the
brightness of the pen, to maintain good contrast to the
background. For a light background, l should be at least 8.
The interval (-iN) is the number of ticks to wait between
data retrieval expeditions. A tick is 1/60th of a second
in the US, and 1/50 in Europe. If N is given as 0, the
research and reporting are done constantly, and system
performance slows slightly but noticeably. 180 corresponds
to ~3 seconds, and is probably a good functional maximum.
The -d arguments specify the detail pen colors.
As the number of tasks increases, the pen becomes dimmer,
and as the proportion of active tasks increases, the pen
becomes yellower. -drN sets the red component (0-15),
-dgN sets the green, and -dbN sets the blue. It's worth
experimenting to find a combination which provides good
contrast.
The -e and -f arguments specify the colors at the ends
of the spectrum. Values specified with -erN, -egN, and
-ebN determine the color of the screen when virtually
no memory is allocated, and values specified with -frN,
-fgN, and -fbN determine the screen color when memory
is full. The greater the difference between the two,
the finer the correlation between screen shade and memory
usage. The defaults (-er0, -eg0, -eb14, -fr14, -fg0, -fb0)
cause the screen hue to range from blue (no memory in use)
to red (all memory allocated).
It all sounds confusing but once you run the program
and see what it does, the meanings of the command line
options will no doubt fall into place.
-----------------
Description:
The purpose of this program is to present key system
information to the user without cluttering up the display.
The workbench background color changes from blue through
purple to red as the amount of free memory decreases.
The workbench detail color (the color of text and Workbench
window borders) changes from bright white to gray as the
number of system tasks increases. Further, the yellow
content of this color is increased according to the number
of active tasks.
On a newly-booted vanilla system, borders are white and the
background is close to the standard Workbench blue. As
you use the system, calling up programs and creating files
on the RAMdisk, the screen takes on an increasingly reddish
hue. When memory is nearly full, the background is completely
red.
Similarly, as tasks are added, the borders and text dim
slightly. In other words, after you set up dmouse, conman,
snipit, or whatever to run in the background, the detail color
fades, eventually to grey. If many background tasks are
active rather than just waiting around for an interrupt or
message, the grey will be tinted yellow.
With Dirk running in the background, you always have a rough
idea of how much memory is available and how busy the system
is, without hunting around for the window of your favorite
resource-tracking gizmo. If you need more precise information,
just select the Dirk window and press the right mouse button.
-----------------
Bugs:
Nary a one, I declare. Dirk won't function properly if
your workbench screen is fewer than 115 pixels tall. But
then, not many programs will.
-----------------
Signature and self-promo:
If you want to send me money for Dirk, then by all means
do so--many projects are in progress and I need financing.
$5.00 is recommended. Make checks payable to:
Daniel Elbaum
4816 SE Bybee Blvd.
Portland, Ore. 97206
Send comments, suggestions, and unmitigated praise to:
Daniel Elbaum
Portland bbs: Amigaboard!, NAG
UUCP: ...!tektronix!reed!elbaum
ARPA: elbaum@reed.EDU
SHAR_EOF
cat << \SHAR_EOF > dirk.h
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#include <exec/types.h>
#include <exec/exec.h>
#include <exec/execbase.h>
#include <intuition/intuition.h>
#include <graphics/gfxbase.h>
#define INAM ("intuition.library")
#define GNAM ("graphics.library")
#define IREV (1)
#define GREV (1)
#define CMAX (15) /* max val for color component (hardware) */
#define WINNAME ("Dirk")
#define WINTOP (0)
#define WINWD (116)
#define WINHT1 (10)
#define WINHT2 (115)
#define WINFLAGS (WINDOWCLOSE|WINDOWDRAG|WINDOWDEPTH|RMBTRAP)
#define WINIFLAGS (CLOSEWINDOW|ACTIVEWINDOW|INACTIVEWINDOW|\
REFRESHWINDOW|MOUSEBUTTONS)
#define W_OPEN (0)
#define W_CLOSED (1)
/*
seems odd, but really makes sense, since background
has 2 color components, and detail has 3.
These limits are to ensure enough contrast for readability.
*/
struct g_flags {
int gran; /* granularity of mapping from #tasks to pen brightness */
int bsmax; /* constant total saturation of background (red+blue) */
int dsmax; /* maximum detail brightness (if high, text glares) */
int dsmin; /* darkest gray for detail pen */
int dstog; /* set to activate task watch */
int bstog; /* set to activate memory watch */
int intvl; /* number of ticks between updates */
int bd_r; /* base detail pen red component */
int bd_g; /* base detail pen green component */
int bd_b; /* base detail pen blue component */
int lb_r; /* low background pen red component */
int lb_g; /* low background pen green component */
int lb_b; /* low background pen blue component */
int hb_r; /* high background pen red component */
int hb_g; /* high background pen green component */
int hb_b; /* high background pen blue component */
/* the following three are used internally only */
int db_r; /* difference in red from low to high memory usage */
int db_g; /* difference in green from low to high memory usage */
int db_b; /* difference in blue from low to high memory usage */
};
typedef struct IntuitionBase t_ib;
typedef struct GfxBase t_gb;
typedef struct g_flags t_gf;
extern struct ExecBase *SysBase;
struct IntuiMessage *GetMsg();
void *OpenLibrary();
ULONG AvailMem();
#ifdef MAIN
t_ib *IntuitionBase;
t_gb *GfxBase;
#else
extern t_ib *IntuitionBase;
extern t_gb *GfxBase;
#endif
SHAR_EOF
cat << \SHAR_EOF > dirk.uu
begin 644 dirk
M```#\P`````````#``````````(````"```".P``#`X```/I`````D[Y````)
M```````#[`````$````"`````@````````/R```#Z@```CL`(0`!````````U
M``````````````````#_______________________________\`````````H
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````"8.T
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M````````````````````````````````````;6%T:&EE965D;W5B8F%S+FQIE
M8G)A<GD`````````````````````````````````````````````````````@
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M```````````````````````````````````#[`````$````"```!R```````[
M``/R```#Z0``#`XCSP```#`CP````#@CR````#PL>0````0CS@````23R4ZN5
M_MHH0$JL`*QG``$(80`",I'(("P`K.6((#`($.6(2.<`,$7Y````P$?Y````7
M0"!`<``0&$(P"``FR"`Y````."!Y````/$/P"``,(0`@4LC_^D(I``$2&&=<Z
M#`$`(&?V#`$`"6?P)LH,`0`B9Q04P1(89T(,`0`@9P04P6#R0AI@U!(89S`,5
M`0`B9_(,`0`J9B`2&`P!`$YG!@P!`&YF!'(*8`X,`0!%9P8,`0!E9@)R&Q3!U
M8,Q"$D*3(#P````\D(M&@.2(3-\,`$AY````0"\`3KD``"YX(\`````8(\``L
M```D3KD``"Z((\`````<(\`````@(\`````H(\`````L3KD``"D,<``N>0``0
M`#!.=6$``2QA``$6(\`````T+P!"IR1`("H`)&<0+'D````(($`B*```3J[_#
M@D'Y```&9`P0``!G4"(()#P```/M+'D````(3J[_X@R``````&=$(\`````8O
M(\`````<(\`````@(\`````D(\`````H(\`````L*4``G"E``*#EB"!`*6@`/
M"`"D3KD``"D,<`!@!"`O``1*N0```#1G$B(Y````&&L*+'D````(3J[_W"YY2
M````,"\`+'D````$(#D````(9P8B0$ZN_F(@.0````QG!B)`3J[^8B`Y````]
M$&<&(D!.KOYB2KD````T9PY.KO]\(GD````T3J[^AB`?3G5(YP$&+CP``X`'9
M+'@`!$ZN_Y1,WV"`<&1@`/]Z0>P`7$ZN_H!![`!<3J[^C$YU0_H`$G``3J[]\
MV"/`````"&?`3G5D;W,N;&EB<F%R>0!.<4Y6_Y)(YQ\\1?D``"]@1_D```'`B
M2?D``"F*>`!(;O^26*X`#"\N``Q.N0``#D103TJ`;```"DAX``I.E%A/2'@`Z
M`4AY```&.DZY```O=%!/)H`@$V8``!A(>0``!AA.N0``)/!83TAX`&-.E%A/O
M2'@``4AY```&!DZY```O=%!/(\````'$(#D```'$9@``'DAY```%YDZY```DX
M\%A/+Q-.DEA/2'@`8DZ46$\@4RHH`#QF```H2'D```7*3KD``"3P6$\O$TZ2.
M6$\O.0```<1.DEA/2'@`84Z46$]*A6<``"8@13`H`!1R`#(``H`````/#(``S
M```!9@``!F````@@12H08-9*A68``"A(>0``!:I.N0``)/!83R\33I)83R\YJ
M```!Q$Z26$](>`!@3I183W@`?`%^`"\%3KD```P,6$\F`&8``"A(>0``!8Q.V
MN0``)/!83R\33I)83R\Y```!Q$Z26$](>`!?3I183T'N_Y(@*``49P``#$ZYO
M```-8"U`__1*@V<``/!*A&8``!8@0R\H`%9.N0``+SA83R@`9P``UB!$+6@`^
M%/_L($0]:``8_^HO!$ZY```O3%A/>`!P`"`N_^Q.N0``+9P```1X``0`````6
M!'X`"``````$A`````@```3&```"``````````3X?@%@``!\?@!@``!V<``PQ
M+O_J`H```/__#(````!I9@``*B\&+P-.N0``#-A03PR&`````68``!(O`TZY1
M```(2EA/?`!@```$?`%@```T2H-G```N($,O*`!63KD``"\X6$\H`&<```XO]
M!$ZY```O3%A/8.`O`TZY```OO%A/=@!@`/\.2H-F```8+Q-.DEA/+SD```'$<
M3I)83T*G3I183TJ'9P``#$ZY```OC&```#8Z?```(`U![O^2L*@`&&P``"0@8
M0R\H`%9.N0``+SA83R@`9P``!F````Q.N0``+XQ236#02H9F```,+P-.N0``2
M"$I83TAN_Y(O+O_T+P5.N0``!DS>_``,8`#^ADS?//A.7DYU0V]U;&1N)W0@5
M;W!E;B!$:7)K)W,@=VEN9&]W"@``0V]U;&1N)W0@9FEN9"!7;W)K8F5N8V@@<
M<V-R965N"@!#;W5L9&XG="!F:6YD(&%N>2!S8W)E96YS"@``0V]U;&1N)W0@P
M;W!E;B!G<F%P:&EC<R!L:6)R87)Y"@!G<F%P:&EC<RYL:6)R87)Y``!#;W5L)
M9&XG="!O<&5N(&EN='5I=&EO;B!L:6)R87)Y"@``:6YT=6ET:6]N+FQI8G)A\
M<GD`3E;_S$CG'SPF+@`0+"X`""!#("@`$&<``+Q(;O_L2&[_\$ZY```-K%!/M
M<`\B+O_PTJ[_["!#+Q`O`4ZY```L9B(?6$^0@2@`($.XJ``,;```""!#*"@`K
M#"!#N*@`"&\```@@0R@H``@@0R\0+R[_\$ZY```L9B`?6$_0A"H`#(4````/4
M;P``!'H/($,@!="H`!PF0"`+#(`````/;P``!C9\``\@0R`%T*@`("1`(`H,T
M@`````]O```&-'P`#R!#(`70J``D+@`,AP````]O```$?@\@0R`H`!1G``"L)
M3KD```X4+4#_S'``("X`#)"N_\PM0/_0($,@*``H(&X`$"\H`$`O+O_03KD`K
M`"OT(A]83R\N``PO`4ZY```L9B(?6$_0@2U`_]P@0R`H`"P@;@`0+R@`1"\NG
M_]!.N0``*_0B'UA/+RX`#"\!3KD``"QF(A]83]"!*D`@0R`H`#`@;@`0+R@`"
M2"\N_]!.N0``*_0B'UA/+RX`#"\!3KD``"QF(A]83]"!*$!.N0``+M0@0R`H)
M`!!G```H+P<O"B\+($80*`%+<@`2`"\`(`8&@````"PO`$ZY```OG-[\`!0@,
M0R`H`!1G```J+PPO#2\N_]P@1A`H`4IR`!(`+P`@!@:`````+"\`3KD``"^<4
MWOP`%$ZY```NY$S?//A.7DYU3E;_;$CG'SPT?``0-GP`%"@N``@X?``<.GP`8
M&$'Y```D@BH(2'@`($*G2&[_;$ZY```ML-[\``QV``R#````"&P``"Q(>0`!%
M``$O"TZY```N]%!/0>[_;"(#Y8'1P2"`(!!F```&8```!E*#8,P,@P````AL@
M``!`=@`,@P````AL```L0>[_;"`#Y8#1P"`09P``&"\+0>[_;"`#Y8#1P"\0S
M3KD``"\,4$]2@V#,3-\\^$Y>3G5.N0``+M1(>``"3KD``"\D6$\N`$AX``1.\
MN0``+R183RP`3KD``"[D2&[_]$AN__A.N0``#:Q03R\N__A(>0``"_I(;O_40
M($5.D-[\``PO+O_T2'D```OJ2&[_O"!%3I#>_``,+P=(>0``"]Y(;O^D($5.U
MD-[\``PO!DAY```+TDAN_XP@14Z0WOP`#"!$(F[_;!*H`&,@1")N_VP3:`!BK
M``$@;O]L$7P``0`"=@$,@P````AL```B+PLO+O]L0>[_;"`#Y8#1P"\03KD`A
M`"W@WOP`#%*#8-8@;O]L0F@`!D'Y```+Q")N_VPC2``,0>[_;")N_VS3RB*H>
M``1![O]L(&@`!#%\``H`!D'Y```+MD/N_VPB:0`$(T@`#$'N_VQ#[O]L(FD`%
M!-/*(J@`"$'N_VP@:``(,7P`'@`&0?D```NL0^[_;")I``@C2``,0>[_;$/N0
M_VPB:0`(T\HBJ``,0>[_U$/N_VPB:0`,(T@`#$'N_VP@:``,,7P`*``&0>[_4
M;-'*0^[_;")I``S3RB*00>[_O$/N_VS3RB)1(T@`#$'N_VS1RB!0,7P`,@`&@
M0>[_;-'+0^[_;-/*(E'3RB*00?D```N@0^[_;-/+(E$C2``,0>[_;-'+(%`Q1
M?``&``1![O]LT<L@4#%\`$8`!D'N_VS1S4/N_VS3RR)1T\HBD$'N_Z1#[O]L'
MT\TB42-(``Q![O]LT<T@4#%\`%``!D'N_VS1S$/N_VS3S2)1T\HBD$'N_XQ#G
M[O]LT\PB42-(``Q![O]LT<P@4#%\`%H`!D'N_VS1S"!0T<I"D$AX``Y(>``&^
M+R[_;"!$+R@`,DZY```P`-[\`!!V``R#````"&P``!PO"T'N_VP@`^6`T<`O'
M$$ZY```O#%!/4H-@W&``_5H@($UE;6]R:65S```@("`@5&%S:W,`1&%N:65L-
M($5L8F%U;0`R+C`@("A#*2`Q.3@Y`$9A<W0Z("4W+C=D`$-H:7`Z("4W+C=DE
M`%=A:71I;F<Z("`E,RXS9`!296%D>3H@("`@)3,N,V0`3G%.5O_,2.<8`"8N_
M``A(>``P0J=(;O_03KD``"VPWOP`#"!#,"@`#$C`XD`$0``Z/4#_T$'N_]!"K
M:``"0>[_T#%\`'0`!$'N_]`Q?``*``8@0T/N_]`3:`%*``@@0T/N_]`3:`%+C
M``E![O_0(7P``0`.``Y![O_0(7P`#`(,``I!^0``#5I#[O_0(T@`&D'N_]`Q5
M?``!`"Y![O_0,7P`"@`H0>[_T#%\`'T`+$AN_]!.N0``+^Q83R@`9@``#'``T
M3-\`&$Y>3G4@!&#T8/).5O_\2.<8`"8N``@@+@`,9@``&$AX_Y="IR\#3KD`.
M`#`<WOP`#&```%(@0R!H`"XP*``.2,`@0S(H``9(P9"!`H```/__*``,A````
M`'-L```8<'.0A$2`+P!"IR\#3KD``"_0WOP`#$AX`&E"IR\#3KD``#`<WOP`9
M#$S?`!A.7DYU1&ER:P``3E;_[$CG'P!Z`$ZY```NM"!Y````!"8H`4(@0R`0)
M9P``'"@#($0N*``8($0L*``4(`>0AMJ`($,F$&#>3KD``"[$(`5,WP#X3EY.U
M=4Y6__1(YQP`>@!X`$ZY```NM"!Y````!"8H`99Z`"!#(!!G```*4H4@0R80B
M8/`@>0````0F*`&D>``@0R`09P``"E*$($,F$&#P3KD``"[$(&X`"""%(&X`=
M#""$(`70A$S?`#A.7DYU3E;_^$CG&`!(>``"3KD``"\D6$\H`$AX``1.N0``3
M+R183R8`(`30@TS?`!A.7DYU3E;__$CG'#`F+@`,*"X`"$7Y```8`$?Y```4+
M&GH`($,@O`````0@0R%\````#``(($,A?`````@`#"!#(7P````!`!`@0R%\0
M`````0`4($,A?````+0`&"!#(7P````"`!P@0R%\`````@`@($-"J``D($,A6
M?`````X`-"!#0J@`."!#0J@`/"!#0J@`*"!#0J@`+"!#(7P````.`#`@1"`0,
M9P`"PB!$(%`0$`P``"UF``*J($0@4!`H``%F```,3I-,WPPX3EY.=2!$4I`@.
M4!`09P`"=B!$(%`0$$B`2,`,@````&1M``),!(````!D#(`````0;@`"/.6`3
M0?D```],(G`(`$[1```/_@``$'P``!#Z```/E```#Z@```_4```1>```$7@``
M``^^```/]```$7@``!%X```1>```$7@``!%X```1>```#^H`````($12D"\0$
M3I)83R!#((!2A6```=@@1%*0+Q!.DEA/($,A0``(4H5@``'"($12D"\03I)8I
M3R!#(4``#%*%8``!K"!$4I`O$$Z26$\@0R%``!A2A6```98@0T*H`!1@``&,'
M($-"J``08``!@B!$4I`@4!`02(!(P$ZY```MG```$#````!R```01@```&<`E
M`!!<````8@```````!!R($12D"\03I)83R!#(4``'%*%8```-"!$4I`O$$Z2,
M6$\@0R%``"!2A6```!X@1%*0+Q!.DEA/($,A0``D4H5@```(3I-@`/Z08``!#
M!"!$4I`@4!`02(!(P$ZY```MG```$*X```!R```0Q````&<``!#:````8@``Q
M`````!#P($12D"\03I)83R!#(4``*%*%8```-"!$4I`O$$Z26$\@0R%``"Q2Q
MA6```!X@1%*0+Q!.DEA/($,A0``P4H5@```(3I-@`/X28```AB!$4I`@4!`0/
M2(!(P$ZY```MG```$2P```!R```10@```&<``!%8````8@```````!%N($12)
MD"\03I)83R!#(4``-%*%8```-"!$4I`O$$Z26$\@0R%``#A2A6```!X@1%*0<
M+Q!.DEA/($,A0``\4H5@```(3I-@`/V48```"$Z38`#]BDJ%9P``"%B$8```!
M!F``_8)*A68```A8A&````1Z`&````A.DV``_6)@`/TZ+P-.N0``$<I83R!#9
M(!!F```*($,@O`````%P`&``_3Y.5O_X2.<?/"8N``@T?``\-GP`.#A\`#0ZD
M?``P,'P`+"H(,'P`*"P(,'P`)"X(>`\@0R`0;```!B!#0I`@0R`0L(1O```&!
M($,@A"!#("@`"&P```@@0T*H``@@0R`H``@,@`````]O```,($,A?`````\`;
M""!#("@`#&P```@@0T*H``P@0R`H``P,@`````]O```,($,A?`````\`#"!#7
M("@`&&P```@@0T*H`!@@0R`H`!BPA&\```@@0R%$`!@@0R`H`!QL```(($-"G
MJ``<($,@*``<#(`````/;P``#"!#(7P````/`!P@0R`H`"!L```(($-"J``@X
M($,@*``@#(`````/;P``#"!#(7P````/`"`@0]''(!!L```(($/1QT*0($/1P
MQR`0#(`````/;P``#"!#T<<@O`````\@0]'&(!!L```(($/1QD*0($/1QB`0'
M#(`````/;P``#"!#T<8@O`````\@0]'%(!!L```(($/1Q4*0($/1Q2`0#(``8
M```/;P``#"!#T<4@O`````\@-3@`;```!D*U.``@-3@`#(`````/;P``"BN\D
M````#S@`(#0X`&P```9"M#@`(#0X``R`````#V\```HIO`````\X`"`S.`!LV
M```&0K,X`"`S.``,@`````]O```*)[P````/.``@,C@`;```!D*R.``@,C@`N
M#(`````/;P``"B6\````#S@`(#0X`"!#T<:0D"!#(4``0"`S.``@0]'%D)`@J
M0R%``$0@,C@`D+4X`"!#(4``2$S?//A.7DYU3E8``"\*1?D``"3P2'D``!?2B
M3I)83TAY```7H$Z26$](>0``%XQ.DEA/2'D``!=V3I)83TAY```7.DZ26$](G
M>0``%Q9.DEA/2'D``!;R3I)83TAY```6P$Z26$](>0``%KI.DEA/2'D``!9X"
M3I)83TAY```61DZ26$](>0``%A1.DEA/2'D``!7B3I)83TAY```5NDZ26$]([
M>0``%9!.DEA/2'D``!5F3I)83TAY```5/DZ26$](>0``%11.DEA/2'D``!3LU
M3I)83W#_)%].7DYU9F(@("@P*0EA;6]U;G0@8GD@8FQU92!F;W(@9G5L;"!M8
M96UO<GD*`&9G("`H,"D)86UO=6YT(&]F(&=R965N(&9O<B!F=6QL(&UE;6]R!
M>0H``&9R("@Q-"D)86UO=6YT(&]F(')E9"!F;W(@9G5L;"!M96UO<GD*``!E`
M8B`H,30I"6%M;W5N="!O9B!B;'5E(&9O<B!E;7!T>2!M96UO<GD*``!E9R`@7
M*#`I"6%M;W5N="!O9B!G<F5E;B!F;W(@96UP='D@;65M;W)Y"@!E<B`@*#`I5
M"6%M;W5N="!O9B!R960@9F]R(&5M<'1Y(&UE;6]R>0H`9&(@("@P*0EA;6]UH
M;G0@8GD@=VAI8V@@=&\@8FQU96X@=&AE(&1E=&%I;"!P96X*``!D9R`@*#(IX
M"6%M;W5N="!B>2!W:&EC:"!T;R!G<F5E96X@=&AE(&1E=&%I;"!P96X*`&1R;
M("`H,BD)86UO=6YT(&)Y('=H:6-H('1O(')E9&1E;B!T:&4@9&5T86EL('!E,
M;@H`"5LM9').72!;+61G3ET@6RUD8DY=(%LM97).72!;+65G3ET@6RUE8DY=D
M(%LM9G).72!;+69G3ET@6RUF8DY="@``"BXN+@``:2`H,3@P*0EI;G1E<G9AY
M;"!I;B!T:6-K<R`H-C`@;W(@-3`@<&5R('-E8V]N9"D*``!L("`@*#@I"6UI_
M;FEM=6T@9&5T86EL('-A='5R871I;VX*``!H("`H,3(I"6UA>&EM=6T@9&5TM
M86EL('-A='5R871I;VX*``!G("`@*#0I"6=R86YU;&%R:71Y(&]F('1A<VL@9
M;6%P<&EN9R`H<VUA;&P@9F]R(&9E=R!T87-K<RD*``!M"71R86-K(&UE;6]R:
M>2!O;FQY"@``=`ET<F%C:R!T87-K<R!O;FQY"@`*57-A9V4Z(&1I<FL@6RUT(
M?&U=(%LM9TY=(%LM:$Y=(%LM;$Y=(%LM:4Y=72XN+@H``$1I<FL@=C(N,"!C:
M;W!Y<FEG:'0@*&,I(#$Y.#D@1&%N:65L($5L8F%U;0H`3G%.5O_X2.<<`"8NK
M``AZ`"@%($,0$`P``"!F```&4H-@\"!#$!`,```M9@``!E*#>@$@0Q`0#```V
M,&T``"P@0Q`0#```.6X``"!PT"($TH$D`>6"TH(@0U*#%!!(@DC"TH+0@2@`U
M8,I*A6<```H@!$2`8```!"`$3-\`.$Y>3G5.<4Y6__1(YQ\`)BX`""HN``Q!1
M^0``!<P@"`:`````?R@`($1"$`R#@````&8``%@@!4ZY```MG```&-8````(-
M```8Y@````H``!CP````$````````!CZ0?D``"8"(`A,WP#X3EY.=4'Y```EM
M]B`(8.Y!^0``)>P@"&#D0?D``"7D(`A@VDJ#;```"'`!8```!$*`+@!G```(]
M(`-$@"8`+P4O`TZY```M!B`?6$\L`"\%+P-.N0``+&8@'UA/)@`@>0```<C1]
MQE.$(D02D$J#;LY*AV<```I3A"!$$+P`+2`$8`#_?$Y6_\A(YQ\`*BX`$`R%5
M````(&\```1Z!D'Y```EW$/N``@@*0``(BD`!$ZY```HNDJ`;```"'`!8```7
M!$*`+@!G```@0>X`""`H```B*``$3KD``"BJ0>X`""%````A00`$0>X`""\HM
M``0O*```3KD``"8T4$]![O_8(4```"%!``1![O_80^X`""`I```B*0`$3KD`&
M`"B20>[_X"%````A00`$0?D```7,)@A\`+R%;```CD'Y```EU$/N_^`@*0``+
M(BD`!$ZY```H2D'N_^`A0```(4$`!$'N_^`O*``$+R@``$ZY```F-%!/+P$@M
M`"(?3KD``"CR*``&```P($-2@Q"`(`1.N0``*.)![O_@+P$O`"`H```B*``$`
M+5__R"U?_\Q![O_(3KD``"B20>[_X"%````A00`$4H9@`/]P($-2@T(0<#]!7
M^0``!<PB""0%1(+2@M"!)@!(>0``!<PO`TZY```JB%!/4X,@0Q"\`"Y!^0``W
M)<Q#[O_8("D``"(I``1.N0``*&(O`2\`3KD``"8T4$]![O_0(4```"%!``1!'
M^0``)<1#[O_0("D``"(I``1.N0``*$I![O_8+P$O`"`H```B*``$+5__R"U?-
M_\Q![O_(3KD``"B2+P$@`"(?3KD``"CR*``&```P4X,@0Q"`0>[_T$/N_]@C$
M:``````C:``$``1!^0``);Q#[O_8("D``"(I``1.N0``*+I*@&X`_TY*AV<`<
M``I3@R!#$+P`+2`#3-\`^$Y>3G5.5O_(2.<?("XN`!`,AP```"!O```$?@9!A
M^0``);1#[@`(("D``"(I``1.N0``*+I*@&P```AP`6````1"@"1`(`IG```@V
M0>X`""`H```B*``$3KD``"BJ0>X`""%````A00`$>`!!^0``):Q#[@`(("D`I
M`"(I``1.N0``*+I*@&<``(Y!^0``):1#[@`(("D``"(I``1.N0``*+I*@&T`K
M`"I!^0``)9Q#[@`(("D``"(I``1.N0``*&)![@`((4```"%!``12A&"Z0?D`O
M`"640^X`""`I```B*0`$3KD``"BZ2H!L```J0?D``"6,0^X`""`I```B*0`$/
M3KD``"A*0>X`""%````A00`$4X1@ND'N``@O*``$+R@``$ZY```F-%!/0>[__
MV"%````A00`$0>[_V$/N``@@*0``(BD`!$ZY```HDD'N_^`A0```(4$`!$'Y&
M```%S"8(>@"ZAVP``(Y!^0``)81#[O_@("D``"(I``1.N0``*$I![O_@(4``G
M`"%!``1![O_@+R@`!"\H``!.N0``)C103R\!(``B'TZY```H\BP`!@``,"!#=
M4H,0@"`&3KD``"CB0>[_X"\!+P`@*```(B@`!"U?_\@M7__,0>[_R$ZY```HN
MDD'N_^`A0```(4$`!%*%8`#_<"!#4H,0O`!%2H1M```.($-2@Q"\`"M@```0^
M($-2@Q"\`"T@!$2`*`!Z`DJ%;0``,DAX``HO!$ZY```M!B`?6$\L``8``#`@*
M0]'%$(!(>``*+P1.N0``+&8H'UA/4X5@RB!#0B@``W`Y0?D```7,(@@D!T2".
MTH+0@28`2'D```7,+P-.N0``*HA03U.#($,0O``N0?D``"5\0^[_V"`I```BH
M*0`$3KD``"AB+P$O`$ZY```F-%!/0>[_T"%````A00`$0?D``"5T0^[_T"`I^
M```B*0`$3KD``"A*0>[_V"\!+P`@*```(B@`!"U?_\@M7__,0>[_R$ZY```H2
MDB\!(``B'TZY```H\BP`!@``,%.#($,0@$'N_]!#[O_8(V@`````(V@`!``$3
M0?D``"5L0^[_V"`I```B*0`$3KD``"BZ2H!N`/].(`IG```*4X,@0Q"\`"T@&
M`TS?!/A.7DYU3E;_]$CG&``H+@`00?D``"5D0^X`""`I```B*0`$3KD``"BZ:
M2H!L```80>X`""`H```B*``$3KD``"BJ8```#D'N``@@*```(B@`!$'N__0AR
M0```(4$`!$'Y```E7$/N__0@*0``(BD`!$ZY```HNDJ`;@``($'Y```E5$/N"
M__0@*0``(BD`!$ZY```HNDJ`;```(B\$0>X`""\H``0O*```3KD``!NBWOP`&
M#$S?`!A.7DYU+P1![@`(+R@`!"\H``!.N0``&63>_``,)@`O`TAY```%S$ZYU
M```JB%!/2H1O```L0?D```7,)@@@0Q`09P``!E*#8/13@R!#$!`,```P9@``'
M"B!#4X-"$&#L0?D```7,(`A@E$Y6__A(YQP`*BX`"'@`0?D```7,)@A!^0``Y
M!<PF""!%$!!G```0($52A2)#4H,2D%*$8.JXK@`,;```$"`N`!`@0U*#$(!29
MA&#J($-"$$'Y```%S"`(3-\`.$Y>3G5.5O_X2.<<`"@N``@O!$ZY```JG%A/S
M*@!!^0``!<PF""`%4H6PK@`,;```#B`N`!`@0U*#$(!@Z"\$+P-.N0``*HA0?
M3T'Y```%S"`(3-\`.$Y>3G5.5@``2.<<`"8N``@H+@`,*BX`$$J$;P``&"\%R
M+P0O`TZY```@9-[\``PF`&```!Y*A&P``!@O!2`$1(`O`"\#3KD``"`&WOP`0
M#"8`(`-,WP`X3EY.=4Y6_]9(YQ\\)FX`$$OY```8@"@N``PF+@`(($,0$&<`2
M`TH@0Q`02(!(P$ZY```MG```(4X````E````````)&I2@S1\```L/```!``@C
M0Q`0#```+68```AP`6````1"@"U`__0@+O_T9P``!%*#($,0$$B`2,`H0"`,I
M#(`````P9P``!CA\`"`@0Q`0#```*F8```Y2@R!$)%!8A&```#H@0Q`0#```<
M,&T``"X@0Q`0#```.6X``"(@"M"`(@#E@="!($,2$$B!2,'0@02`````,"1`V
M4H-@R"`N__1G```((`I$@"1`($,0$`P``"YF``!64H,@0Q`0#```*F8```Y2,
M@R!$+!!8A&```#Q\`"!#$!`,```P;0``+B!#$!`,```Y;@``(B`&T(`B`.6!'
MT($@0Q(02(%(P="!!(`````P+`!2@V#(($,0$$B`2,!.N0``+9P``"+*````E
M)0``(N(```!C```B_@```&0``",2````90``(S8```!F```C6@```&<``"-^N
M````;```(X0```!O```CF````',``".P````=0``(\0```!X```D#@```%@`A
M```````D(AU\`"7_UD'N_]9"*``!0>[_UBH(8``!2B!$(!`=0/_60>[_UD(H=
M``%![O_6*@A8A&```2Y(>``*($0O$$Z54$\J`%B$8``!&B\&($0O*``$+R@`=
M`$ZY```;HM[\``PJ`%"$+#P```0`8```]B\&($0O*``$+R@``$ZY```99-[\3
M``PJ`%"$+#P```0`8```TB\&($0O*``$+R@``$ZY```>[M[\``PJ`%"$+#P`2
M``0`8```KE*#8`#^TDAX``@@1"\03I503RH`6(1@``"4($0J$%B$2H5F```*W
M0?D``"5,*@A@``!\2'@`"B!$+Q!.E5!/*@!8A&```&A(>``0($0O$$Z54$\J5
M`"X%($<0$&<``"X@1Q`0#```06T``!X@1Q`0#```6FX``!(@1Q`02(!(P`8`X
M`"`@1Q"`4H=@S%B$8```'DAX`!`@1"\03I503RH`6(1@```*0?D``"5$*@@O?
M!4ZY```JG%A/L(9O```(($71QD(0+PPO"B\%3KD``""XWOP`#"H`($40$&<`W
M``X@15*%(DM22Q*08.Q@```*($,B2U)+$I!2@V``_+)"$TS?//A.7DYU3E8`E
M`"\#)BX`""\#2&X`$"\N``Q.N0``(0[>_``,(`,F'TY>3G5.5O_\+P-!^0``M
M`<PF""\#2&X`$"\N``Q.N0``(0[>_``,+RX`""\#3KD``"J<6$\O`$AX``$OB
M`TZY```G#-[\`!`F'TY>3G5.5O_\+P-!^0```<PF""\#2&X`#"\N``A.N0``!
M(0[>_``,0?D```9H(`@&@````"`O`"\#3KD``"J<6$\O`$AX``$O`TZY```GP
M#-[\`!`F'TY>3G4M3T]04RT``"AN=6QL*0``.\><H0R20BM$%:\=>+6,0```Y
M``````````````````!`)````````$`D````````0"0```````!`)```````0
M`#_P````````0"0```````!`)```````````````````````````````````W
M`````$`D````````0"0```````!`)```````````````````+4]/4%,M```X_
M,#`P,#`P,```+3(Q-#<T.#,V-#@`,C`P,#`P,#`P,#``,#$R,S0U-C<X.4%"N
M0T1%1D=(24I+3$U.3U!14E-455976%E:``!.5O_\0>X`""`H```B*``$3KD`/
M`"CR+4#__"`N__Q.N0``*.).7DYU3E;_^$'N``@O*``$+R@``$ZY```F-%!//
M0>[_^"%````A00`$0>[_^$/N``@@*0``(BD`!$ZY```HNDJ`;```'D'Y```G"
M`D/N__@@*0``(BD`!$ZY```H>DY>3G5![O_X("@``"(H``1@[F#L3E8``$'Y.
M```F^D/N``@@*0``(BD`!$ZY```H>B\!+P!.N0``)C103TZY```HXDY>3G4_X
MX````````#_P````````3G%.5O_T2.<?("8N`!0N+@`()&X`#'P`+PHO+@`0?
M3KD``"OT(!]83RH`($,@*``,($.0J``$L(5L```2($,@*``,($.0J``$8```U
M!"`%*``O!"!#("@`&B!#T*@`!"\`+P=.N0``*FC>_``,W(2:A-Z$($/9J``4D
M($/9J``$($,@*``(($.PJ``$;```#"!#(D,C:``$``@@0P`H``$`&$J%9P``+
M)B\#3KD``"M(6$\H``R$_____V8```P@!$S?!/A.7DYU8```!F````9@`/]:>
M+P-.N0``*TA83R\*+P9.N0``+&8@'UA/8-).<4CGP,`@.0````QF```^0_D`E
M``9,<``L>0````1.KOW8(\`````,9@``(DCG`08N/``#@`4L>``$3J[_E$S?]
M8(!(>`!D3KD``"F*+$!,WP,#3G5(YS`"3KD``"?X3-@`#$ZN_[),WT`,3G5($
MYS`"3KD``"?X3-@`#$ZN_ZQ,WT`,3G5(YS`"3KD``"?X3-@`#$ZN_[Y,WT`,W
M3G5(YS`"3KD``"?X3-@`#$ZN_[A,WT`,3G4O#DZY```G^$ZN_\0L7TYU2.<PV
M`DZY```G^$S8``Q.KO_63-]`#$J`9@1P`&`(:P1P`6`"</].=2\.3KD``"?X#
M3J[_W"Q?3G4O#DZY```G^$ZN_^(L7TYU0H%.=4*!3G5.<4Y6```O"D7Y```J#
ML$*Y```(Z$AX`H!(>0``!FA.N0``*RQ03TAX`0`O.0```!A"ITZ2WOP`#$AXY
M`0`O.0```!Q(>``!3I+>_``,2'@!`"\Y````($AX``).DM[\``PO+@`,+RX`C
M"$ZY```"A%!/0J=.N0``*8I83R1?3EY.=4Y6__Q(YQ`P1?D```CH1_D``"H$:
M2'D```9H3I-83T'Y```&:"`(!H`````@+P!.DUA/0?D```9H(`@&@````$`OI
M`$Z36$\@$F<``!H@4B80(%(O*``(+Q).N0``+PQ03R2#8.(O+@`(3KD```'$P
M6$],WPP(3EY.=4YQ3E;__$CG&``F+@`(+P-.N0``*TA83T*G($,@*``4($.0$
MJ``0+P`@0R@0+P1.N0``+IC>_``,($,O*``,($,O*``:3KD``"\,4$](>``@#
M+P-.N0``*RQ03R`$3-\`&$Y>3G5.<4Y6```O+@`0+RX`""\N``Q.N0``+>#>5
M_``,3EY.=4YQ(&\`!")O``@0V6;\("\`!$YU3G$@;P`$2AAF_)'O``13B"`(@
M3G5.<4Y6__Q(YQ@`*"X`$&8```1X`4'Y```&:"`((BX`".N!T($F`&<``%)"W
MIR!#(40`#"\H``Q.N0``+O103R!#(4``&B`H`!IG```P0J="IR!#(*X`#"\0+
M3KD``"Z8WOP`#"!#(4``%")#(V@`%``0(`-,WP`83EY.=7``8/1.5@``+RX`Y
M#$*G+RX`"$ZY```ML-[\``Q.7DYU3E;_]$CG'B`F+@`(-'P`$'P`($,0*``8B
M2(!(P`*``````6<``'(@0R`H`!0@0Y"H``0J`"`R.`"PA6<``!I"IR`%D+(X\
M`"\`($,O$$ZY```NF-[\``P@0R\H``0@0R\H`!H@0R\03KD``"Y<WOP`#"@`7
M($.XJ``$9P``#'S_2H1L```$>``@!="$)8`X`"!#`BC__@`8($-"J``(($-"=
MJ``$(`9,WP1X3EY.=4Y6``!(Y_@`2FX`"&8``!Y*;@`,9@``%C`N``K`[@`.;
M+4``"$S?`!].7DYU>`$D+@`(;```!D2"1(0F+@`,;```!D2#1(1"@#`"P,,R+
M`DA"Q,-(0\+#TH)(04)!T(%*A&P```1$@"U```A,WP`?3EY.=4Y6```O`$IN/
M``QF'"`N``AK%H#N``YI$`*```#__RU```@@'TY>3G5(YWP`>@$@+@`(;`1$M
M@$2%)@`B+@`,;`1$@42%*`$,@0`!``!L%$)`2$"`P30`,`.`P4A`,`)(0&`J_
MXHCBB0R!``$``&ST@,$"@```__\D`"\`+P1A`/\0(!]83[:`;`)3@B`"2H5LV
M`D2`+4``"$S?`#X@'TY>3G5.5@``2.?X`$IN``QF'"`N``AK%H#N``YI$$)`Q
M2$`M0``(3-\`'TY>3G5X`2`N``AL!$2`1(0D`"(N``QL`D2!#($``0``;!!"`
M0$A`@,$P`H#!0D!(0&`L)@'BB.*)#($``0``;/2`P0*```#__R\`+P-A`/YZW
M(!]83[2`9`*0@Y""1(!*A&P"1(`M0``(3-\`'TY>3G4@7R)8(@EG!K"89O9.:
MT2!03M!.<4Y6__1(YQX`*BX`""P%*"X`#"8N`!!*@V\```P@1E*&$(13@V#P9
M(`5,WP!X3EY.=4Y6__1(YQ\`+"X`$"XN``A*AFX```P@!TS?`/A.7DYU*BX`%
M#"@'NH1N```X(`93@"(%TH`@`;"$;0``*"`&4X#:@"`&4X#8@"8&2H-O```07
M($53A2)$4X02D%.#8.Q@```8)@9*@V\``!`@15*%(D12A!*04X-@["`'8)Q(5
MYQ`"3.\`#@`,+'D````(3J[_T$S?0`A.=4YQ+PXL>0````A.KO_*+%].=2\.U
M+'D````(3J[_Q"Q?3G5(YQ`"3.\`#@`,+'D````(3J[_ODS?0`A.=4YQ+PXL4
M>0````1.KO^(+%].=2\.+'D````$3J[_@BQ?3G4O#BQY````!$ZN_WPL7TYUJ
M+PXL>0````1.KO]V+%].=2\.3.\``P`(+'D````$3J[_.BQ?3G5.<2\.(F\`A
M""`O``PL>0````1.KO\N+%].=2\.(B\`""QY````!$ZN_R@L7TYU+PX@;P`('
M+'D````$3J[^C"Q?3G4O#B)O``@L>0````1.KOZ&+%].=2\.(F\`""QY````%
M!$ZN_F(L7TYU+PXB;P`(("\`#"QY````!$ZN_=@L7TYU+PXL>0```<1.KO[RZ
M+%].=4CG$`(@;P`,3.\`#P`0+'D```'$3J[^X$S?0`A.=4YQ+PX@;P`(+'D`V
M``'`3J[_N"Q?3G4O#B!O``A,[P`#``PL>0```<!.KO]8+%].=4YQ+PX@;P`(Z
M+'D```'`3J[_-"Q?3G4O#DSO`P``"$SO``,`$"QY```!P$ZN_R@L7TYU+PX@H
M;P`(3.\``P`,+'D```'`3J[^X"Q?3G5.<0```^P```!E`````0``,"H``#`0]
M```O]```+]X``"_$```OK```+Y```"^````O:```+U0``"]````O+```+Q@`7
M`"[^```NZ```+M@``"[(```NN```+J0``"Z,```N?```+F@``"K$```I7```C
M*4@``"DV```I)```*:```"FJ```IO@``*1H``"F4```G_@``*!H``"@(```E<
M%```&)(``!E````:"@``&JX``!K````<]@``'?H``!X,```?P```']0``!_^?
M```@%@``(!X``"!6```@?@``(*H``"2P```D^```#7(```W````-W````I0`-
M``,&```##````U````.F```#X@``!0H```%@`````@````@````.````&@``;
M`$8```!,````7@```&0```#>````[@```/P```$"```!#@```10```$:```!?
M(````2X```$^```!4````70```&&```!C````9(```&8```!G@```:0```'*C
M```!T@```=H```'D```!\@```@````(.```"'````B@```)N```!)P````(`Z
M`"NP```KE@``*SP``"L(```JY@``*GH``"I6```J2```*C(``"H4```I]```3
M*>0``"F:```I=```*2H``"D4```I?@``*#X``"A0```H:```*(```"B8```HB
MK@``*,```"CF```H]@``)^P``">T```GX```)VX``"<J```FL```)N```":2Q
M```F5```)O(``"9&```F;@``)IX``";.```FZ@``).(``"4V```@=```)"X`A
M`"32```E)@``&NH``!Q8```>-@``&L@``!X4```?Q@``(*(``!IL```=6```#
M&E@``!M(```=1```'I0``!HL```;&@``')X``!T8```>9@``&?@``!J.```;J
M/```'.0``!UZ```>B```&=0``!I*```:]```',```!TV```>0```&;8``!OV%
M```?)@``&9```!N````;S@``'!P``!PZ```<@```'LP``!\.```?6@``'W@`#
M`!DT```=Y```&20``!W(```8L@``(3H``")>```8M@``&+X``!C&```8T@``!
M&-@``!CH```8\@``&/P``!E^```:&@``&M@``!L(```;;@``&[P``!P*```<0
M*```'$8``!QN```<C```'08``!XD```>5```'KH``![\```?2```'V8``!^2B
M```?L@``(-H``"#Z```A'```(3X``"%*```B8@``(FH``")R```B>@``(H(`0
M`"**```BD@``(IH``"*B```BJ@``(K(``"*Z```BQ@``(R```"-$```C:```Y
M(Z8``"0D```D2```))@``"3"```E"@``%"(``!`,```0B@``$0@```Y6```.%
M7```#T(```],```/4```#U0```]8```/7```#V````]D```/:```#VP```]PO
M```/=```#W@```]\```/@```#X0```^(```/C```$!```!`8```0(```$"P`=
M`!".```0E@``$)X``!"J```1#```$10``!$<```1*```$:X``!0H```4,@``5
M%#P``!1&```44```%%H``!1D```4;@``%'@``!2"```4C```%)8``!2@```4J
MJ@``%+0``!2^```4R```%-(``!3<```.(@``#C````V>```-^```#6P```VZ4
M```-.```#/8```U*```,O```#"0```R,```+;@``"<P```D,```)&@``".X`J
M``N2```(F```"'H```AH```(/@``"20```@"```(-```!]8```D"```'5@``M
M!X@```>X```'+```!H@```:^```'9@``!Y@```?(```&<```"3(```D^```)O
M5```"6@```E\```)X@``"@P```H^```*P@``!7@```4@```%5```!/````2T&
M```%9@``!*````1,```$/```!.0```0<```$U```!4(```0````#P````N0`S
M``,<```#0@```Y@```/4```"S@```OX```*N```"F@```HX```+(```"W@``L
M`O@```,6```#/````Y(```/.```$4```!%@```1@```$:```!'0```$F```!8
1O````0@```#V`````````_+.^
``
end
size 16352
SHAR_EOF
cat << \SHAR_EOF > main.c
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#define MAIN
#include "dirk.h"
#define ODD_BEHAVIOR
main(c, v)
char **v;
{
register i, active;
register ULONG tm;
register wtog;
ULONG Class;
USHORT Code;
struct Screen *sp;
struct Window *wp;
register struct IntuiMessage *msg=NULL;
t_gf g_f;
struct Window *getwin();
ULONG totmem();
void redowin(), setcolors(), fillwin();
if (getargs(++v, &g_f)<0) exit(10);
if (!(IntuitionBase=(t_ib *)OpenLibrary(INAM, IREV))){
printf("Couldn't open intuition library\n");
exit(99);
}
if (!(GfxBase=(t_gb *)OpenLibrary(GNAM, GREV))){
printf("Couldn't open graphics library\n");
CloseLibrary(IntuitionBase);
exit(98);
}
if (!(sp=IntuitionBase->FirstScreen)){
printf("Couldn't find any screens\n");
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
exit(97);
}
for (; sp; sp=sp->NextScreen)
if ((sp->Flags&SCREENTYPE)==WBENCHSCREEN)
break;
if (!sp) {
printf("Couldn't find Workbench screen\n");
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
exit(96);
}
msg=NULL;
wtog=W_CLOSED;
active=0; /* ACTIVATE not requested by getwin() */
if (!(wp=getwin(sp))){
printf("Couldn't open Dirk's window\n");
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
exit(95);
}
if (g_f.bstog) tm=totmem();
for (;;) {
while (wp&&(msg||(msg=GetMsg(wp->UserPort)))){
Class=msg->Class;
Code=msg->Code;
ReplyMsg(msg);
msg=NULL;
switch(Class){ /* assume sizeof(int)==sizeof(ULONG) */
case ACTIVEWINDOW:
active=1;
break;
case INACTIVEWINDOW:
active=0;
break;
case MOUSEBUTTONS:
if ((Code&0xFFFF)==MENUDOWN){
redowin(wp, wtog);
if (wtog==W_CLOSED) {fillwin(wp); wtog=W_OPEN;}
else wtog=W_CLOSED;
}
break;
case CLOSEWINDOW:
if (wp){
while (msg=GetMsg(wp->UserPort))
ReplyMsg(msg);
CloseWindow(wp);
wp=NULL;
}
break;
}
}
if (!wp) {
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
exit(0);
}
if (active)
WaitTOF();
else{
for (i=0; i<g_f.intvl; ++i)
if (msg=GetMsg(wp->UserPort)) break;
else WaitTOF();
}
if (wtog==W_OPEN) fillwin(wp);
setcolor(sp, tm, &g_f);
}
/* NOTREACHED */
}
SHAR_EOF
cat << \SHAR_EOF > makefile
#
# 1/89
#
# This makefile is for PDC. rom.lib is just a
# public-domain version of amiga.lib.
#
COBJ = main.o adjust.o window.o sys.o arg.o
INCL = dirk.h
PROG = dirk
sharp: $(COBJ)
blink to $(PROG) from PDCLIB:acrt0.o $(COBJ) +
lib PDCLIB:pdc.lib PDCLIB:rom.lib nodebug smallcode smalldata
$(COBJ): $*.c $(INCL)
cc -Ii: -bq $*.c
as $*.s
SHAR_EOF
cat << \SHAR_EOF > sys.c
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#include "dirk.h"
/*
Find the total amount of system memory
by cruising the master list.
*/
ULONG
totmem()
{
register ULONG tu, tl, tm=0;
register struct Node *n;
register struct MemHeader *m;
Disable();
for (n=SysBase->MemList.lh_Head; n->ln_Succ; n=n->ln_Succ){
m=(struct MemHeader *)n;
tu=(ULONG)m->mh_Upper;
tl=(ULONG)m->mh_Lower;
tm+=tu-tl;
}
Enable();
return(tm);
}
/*
Hunt up all ready tasks and waiting tasks;
put their respective counts in r and w.
*/
tqlen(r, w)
int *r, *w;
{
register tr=0, tw=0;
register struct Task *t;
Disable();
t=SysBase->TaskReady.lh_Head;
for (tr=0; t->tc_Node.ln_Succ; t=t->tc_Node.ln_Succ)
tr++;
t=SysBase->TaskWait.lh_Head;
for (tw=0; t->tc_Node.ln_Succ; t=t->tc_Node.ln_Succ)
tw++;
Enable();
*r=tr;
*w=tw;
return(tr+tw);
}
/*
Place amt of free chip mem into cm;
place amt of free fast mem into fm.
*/
ULONG
amtfree()
{
ULONG c, f;
c=AvailMem(MEMF_CHIP);
f=AvailMem(MEMF_FAST);
return(c+f);
}
SHAR_EOF
cat << \SHAR_EOF > window.c
/***************************************************************************
1/89
DIRK v2.0 -- Tune workbench colors to system performance
Copyright (C) 1989 by Daniel Elbaum
This software is freely redistributable provided that:
the four files which comprise it (dirk, dirk.doc, dirk.h,
adjust.c, main.c, sys, window.c) remain intact; all
copyright notices contained in any of the aforementioned
files remain intact; and no fee beyond reasonable remuneration
for collation and distribution be charged for use and/or
distribution.
***************************************************************************/
#include "dirk.h"
/*
Just give me a window and don't make me
put endless initializations into main()
or global space, okay?
*/
/*
sp arg is more for symmetry than for anything else.
*/
struct Window *
getwin(sp)
struct Screen *sp;
{
struct NewWindow nw;
struct Window *wp;
memset(&nw, 0, sizeof(nw));
nw.LeftEdge = (sp->Width/2)-(WINWD/2);
nw.TopEdge = WINTOP;
nw.Width = WINWD;
nw.Height = WINHT1;
nw.DetailPen = sp->DetailPen;
nw.BlockPen = sp->BlockPen;
nw.Flags = WINFLAGS;
nw.IDCMPFlags = WINIFLAGS;
nw.Title=WINNAME;
nw.Type=WBENCHSCREEN;
nw.MinHeight=WINHT1;
nw.MaxHeight=WINHT1+WINHT2;
if (!(wp = OpenWindow(&nw))) {
return((struct Window *)NULL);
}
else return(wp);
}
void
redowin(wp, oldstatus)
struct Window *wp;
{
int d2bot;
if (oldstatus==W_OPEN) SizeWindow(wp, 0, -(WINHT2-WINHT1));
else {
d2bot=(wp->WScreen->Height-wp->TopEdge)&0xFFFF;
if (d2bot<WINHT2)
MoveWindow(wp, 0, -(WINHT2-d2bot));
SizeWindow(wp, 0, WINHT2-WINHT1);
}
}
SHAR_EOF
# End of shell archive
exit 0
--
Bob Page, U of Lowell CS Dept. page@swan.ulowell.edu ulowell!page
Have five nice days.